Using plotly to compare 'AT&T (1961) The World's Telephones'

Code:

library(plotly)
data("WorldPhones")
df <- data.frame(WorldPhones)

x <- rownames(df)
p <- plot_ly(df, x = ~x, y = ~N.Amer, name = 'N.Amer', 
             type = 'scatter', mode = 'lines+markers') %>%
  add_trace(y = ~Europe, name = 'Europe', mode = 'lines+markers')

p